home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / os2 / ftree11a.zip / LNGEVITY.FTX < prev    next >
Text File  |  1996-10-30  |  3KB  |  102 lines
  1. /*
  2.    Family Tree Rexx Script FTX
  3.  
  4.    Copyright (C) 1996 by <Nils Meier>
  5.  
  6.    Please send comments to / Kommentar bitte an
  7.         meier2@athene.informatik.uni-bonn.de
  8.  
  9.    <
  10.    English:   This script shows the longevity of all persons in the tree
  11.               that have a date of birth and death.                             :English
  12.    Deutsch:   Dieses Skript zeigt die Lebenszeit aller Menschen aus dem Baum,
  13.               die einen Geburtstag und Sterbetag haben.                        :Deutsch
  14.    Nederlands:This script shows the longevity of all persons in the tree
  15.               that have a date of birth and death.                             :Nederlands
  16.    Francais:  Ce script montre la longévité de toutes les personnes de l'arbre pour
  17.               lesquelles une date de naissance et de décès a été donnée.       :Francais
  18.    >
  19.  
  20.    Long name is <
  21.                  English:    List longevity report                  :English
  22.                  Deutsch:    Ausgeben der Lebenszeitanalyse         :Deutsch
  23.                  Nederlands: List longevity report                  :Nederlands
  24.                  Francais:   Imprime longévité de les personnes     :Francais
  25.                 >
  26. */
  27.  
  28. /* ----------------------- Params  /  Parameter ------------------- */
  29. namewidth=40
  30.  
  31. CALL initLanguage
  32.  
  33. /* ----------------- Display Header / Kopf der Ausgabe ------------- */
  34.  
  35. head=msg.Header.LANG||DATE()
  36. SAY(head)
  37. SAY(COPIES('=',length(head)))
  38.  
  39.  
  40. /* ------------------------------ Output / Ausgabe ----------------- */
  41.  
  42. /* Sort Persons by Longevity  /  Personen sortieren nach Lebenszeit */
  43. rc=sortPersons('L')
  44.  
  45. /* Display persons in tree  /  Anzeigen der Menschen im Stammbaum*/
  46.  
  47. rc=selectPerson('F')
  48. DO UNTIL rc=0
  49.  
  50.    /* Check Birth & Death years  /  Nachpruefen von Geburts-, Todesdatum */
  51.    birth=getBirthDate('Y')
  52.    death=getDeathDate('Y')
  53.  
  54.    IF birth<>0 & death<>0 THEN DO
  55.  
  56.       b_days=getBirthDate('d')
  57.       d_days=getDeathDate('d')
  58.       
  59.       /* Say the result  /  Ergebnis ausgeben */
  60.       result = getName()||','||GetFirstName()
  61.       result=LEFT(result,namewidth)
  62.  
  63.       SAY(result||' ('||(d_days-b_days)%365||')')
  64.       END
  65.  
  66.    /* next  /  naechster */
  67.    rc=selectPerson('N')
  68. END
  69.  
  70. /* Done  /  Fertig */
  71. RETURN
  72.  
  73.  
  74. /* ---------------------- LANGUAGE INIT --------------------------- */
  75. InitLanguage:
  76.  
  77.    /* Calculate Language Index */
  78.    lang='E'                              /* Default -> [E]nglish */
  79.    IF getLanguage()='Deutsch' THEN       /* Deutsch -> [G]erman */
  80.       lang='G'
  81.    IF getLanguage()='Nederlands' THEN    /* Nederlands -> [D]utch */
  82.       lang='D'
  83.    IF getLanguage()='Francais' THEN       /* Francais -> [F]rench */
  84.       lang='F'
  85.  
  86.    /* [E]nglish Messages */
  87.    msg.Header.E='Longevity Analysis. (Age at death) Today is '
  88.  
  89.    /* [G]erman Messages */
  90.    msg.Header.G = 'Lebenszeitanalyse. (erreichtes Alter) Heute ist der '
  91.  
  92.    /* [D]utch Messages */
  93.    msg.Header.D='Longevity Analysis. (Age at death) Today is '
  94.  
  95.    /* [F]rench Messages */
  96.    msg.Header.F="Analyse sur la Longévité. (Age au décès). Nous sommes le "
  97.  
  98.    /* Done */
  99.    RETURN
  100.  
  101.  
  102.